1 IFPEEK(787)<>1THENSYS57812"FNT",8,0:POKE780,0:POKE781,0:POKE782,56:SYS65493
2 POKE787,1:IFCH=1THENPOKE53272,31:GOTO27
3 POKE53272,31:POKE53281,0:POKE53280,11:PRINT"[147][158]":POKE55,0:POKE56,56:CLR
4 F1$="[204][207][193][196][211][212][193] [210]":F2$="[208] [210] [197] [211] [197] [206] [212] [211]":F3$="[194][217]":F4$="[202][197][198][198][210][197][217] [204]. [202][207][206][197][211]"
5 S=54272:FORI=0TO24:POKES+L,0:NEXT
6 POKES+1,100:POKES+5,9:POKES+24,15
7 C(1)=15:C(2)=12:C(3)=11:F$="   [198][160][207][160][206][160][212][160][160][160][195][160][200][160][193][160][206][160][199][160][197] [210]":MU=1
8 C(7)=11:C(6)=12:C(5)=15:C(4)=12:FORI=1TO7:READFO$(I):FO$(I)=FO$(I)+" [198][207][206][212]"
9 NEXT:READFO$(8),FO$(9),FO$(10):I=0
10 GOTO24
11 POKE646,6:PRINT""SPC(5)"[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
12 FORC=1TO5:PRINTSPC(5)"[221]                             [221]":NEXT
13 PRINTSPC(5)"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]":GOSUB14:RETURN
14 POKE198,0:POKE214,6:PRINT:PRINT:FORC=1TO10:POKE646,14:IFMU=CTHENPOKE646,7
15 PRINTTAB(13)FO$(C):NEXT:MU=9:C=6:GOSUB45:MU=1
16 POKE214,18:PRINT:PRINT"   [158] [213][211][197] [195][213][210][211][207][210]/[210][197][212][213][210][206] [212][207][160][211][197][204][197][195][212] [198][207][206][212] "
17 PRINT"    [155]ABCDEFGHIJKLMNOPQRSTUVWXYZ   12345"
18 PRINT"    [193][194][195][196][197][198][199][200][201][202][203][204][205][206][207][208][209][210][211][212][213][214][215][216][217][218]   67890[145]":RETURN
19 POKE646,C(I+2):PRINT""SPC(13)F1$
20 POKE646,C(I+1):PRINTSPC(13)F2$
21 POKE646,C(I):PRINTSPC(6)F$
22 POKE646,C(I+1):PRINTSPC(19)F3$
23 POKE646,C(I+2):PRINTSPC(12)F4$:RETURN
24 GOSUB11:GOTO27
25 I=I+1:IFI=5THENI=1
26 GOSUB19:RETURN
27 GETA$:GOSUB43:GOSUB25:IFA$=""THEN27
28 UM=MU:IFA$="[145]"THENMU=MU-1:IFMU<1THENMU=10
29 IFA$=""THENMU=MU+1:IFMU>10THENMU=1
30 IFA$=CHR$(13)THEN46
31 POKE214,6+UM:PRINT:PRINTTAB(13)"[154]"FO$(UM)
32 POKE214,6+MU:PRINT:PRINTTAB(13)"[158]"FO$(MU):GOTO27
33 I=1:GOSUB19
34 IFA$="Q"THEN36
35 CH=1:LOADFI$,8,1
36 FORI=62464TO62564:POKEI,0:NEXT
37 POKE787,0:OPEN15,8,15,"R0:HELLO CONNECT=HELLO CONNECT":INPUT#15,ER:CLOSE15
38 POKE53272,21
39 IF ER<>63 THEN PRINT"[147]":END
40 A$="HELLO CONNECT":Q$=CHR$(34):POKE53281,7:POKE53280,7:PRINT"[147]"
41 PRINT"[158]LOAD"Q$A$Q$",8"
42 PRINT"RUN":POKE631,13:POKE632,13:POKE198,2:END
43 C=C+1:IFC>7THENC=1
44 POKE646,C(C):POKE214,6+MU:PRINT:PRINTTAB(13)FO$(MU):RETURN
45 POKE214,9+MU:PRINT:PRINTTAB(17)"[154]"FO$(MU):RETURN
46 IFMU>7THEN51
47 GOSUB61:CH=1:LOADAA$+" FONT",8,1
48 DATA"[211][200][210][197][214][197][208][207][210][212]","[206][197][215][160][207][210][204][197][193][206][211]","[193][204][197][216][193][206][196][210][201][193]","[212][200][201][194][207][196][193][213][216]","[211][212][197][197][204][160][195][201][212][217]"
49 DATA"[195][207][205][205][207][196][207][210][197]","[204][207][193][196][211][212][193][210]","[213][211][197][160][217][207][213][210][160][207][215][206][160][198][207][206][212]","[201][206][211][212][193][204][204][160][206][197][215][160][198][207][206][212]"
50 DATA"[210][197][212][213][210][206][160][212][207][160][204][207][193][196][211][212][193][210]"
51 ONMU-7GOTO63,52,36
52 POKE214,20:PRINT:FORU=1TO2:PRINT"                                      ";
53 NEXT:PRINT"":FA$="FNT"
54 FORU=1TO4:POKE214,20:PRINT:PRINTTAB(8)"[155][201][206][211][197][210][212] [211][201][196][197]"U"OF [204][207][193][196][211][212][193][210]"
55 PRINTTAB(6)"[193][206][196][160][208][210][197][211][211][160][210][197][212][213][210][206][155]/ [158][209][155] [212][207][160][193][194][207][210][212]"
56 GETA$:IFA$<>"Q"ANDA$<>CHR$(13)THEN56
57 IFA$="Q"THENRUN
58 FA$="FNT":CLOSE15:OPEN15,8,15,"S0:FNT"
59 SYS57812FA$,8:POKE193,00:POKE194,56:POKE174,00:POKE175,64:SYS62954
60 POKES+4,37:FORT=0TO500:NEXT:POKES+4,36:NEXT:RUN
61 AA$="":FORI=1TOLEN(FO$(MU))-5:AA$=AA$+CHR$(ASC(MID$(FO$(MU),I,1))-128):NEXT
62 I=0:RETURN
63 POKE214,18:PRINT:FORI=1TO5:PRINT"                                      "
64 NEXT:PRINT"":POKE214,19:PRINT:PRINT"[158][197]NTER NAME OF FONT: ";
65 POKE53272,23:LI=16:GOSUB73:POKE53272,31:PRINT:IFW$=""THENRUN
66 POKE214,19:PRINT:PRINT"          [159][201]NSERT DISK/[159]HIT[158] [210][197][212][213][210][206]  "
67 GETA$:IFA$<>CHR$(13)THEN67
68 OPEN15,8,15,"I0:":OPEN2,8,2,W$+",P,R":INPUT#15,E$,E$:IFE$<>"OK"THEN72
69 GET#2,A$,A$:FORI=14336TO15072STEP4:GET#2,A$,A1$,A2$,A3$
70 POKEI,ASC(A$+CHR$(0)):POKEI+1,ASC(A1$+CHR$(0))
71 POKEI+2,ASC(A2$+CHR$(0)):POKEI+3,ASC(A3$+CHR$(0)):NEXT:CLOSE2:RUN
72 PRINT"[147]"E$:PRINT"PRESS A KEY...":POKE198,0:WAIT198,1:RUN
73 W$="":PRINT">[146][157]";:IFLIMIT=0THENLIMIT=80
74 GETA$:IFA$="[145]"ORA$=""ORA$="[157]"ORA$=""ORA$=""ORA$="[147]"ORA$=""THEN74
75 AS=ASC(A$):IFAS=13ORAS=141ORAS=20THEN80
76 IFPEEK(653)=2ORPEEK(653)=4THEN74
77 IFLEN(W$)=LIMITTHENIFAS<>20ANDAS<>13ANDAS<>141THEN74
78 IFAS=34OR(AS>=133ANDAS<=140)OR(AS>=1ANDAS<=31)THEN74
79 W$=W$+A$:PRINTA$">[146][157]";:GOTO74
80 IFAS=20ANDW$<>""THENW$=LEFT$(W$,LEN(W$)-1):PRINT"[157]<[146] [157][157]";:GOTO74
81 IFAS=20ANDW$=""THEN74
82 IFAS=13THENPRINT" ":LIMIT=0:RETURN